home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 September / CHIP Eylül 1998.iso / freeware / Memct00 / memct.exe / mytestu.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-03-17  |  807 b   |  46 lines
  1. unit mytestu;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, Buttons, StopTime, CDEvents, MemCtrl, Led;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     MemCtrl1: TMemCtrl;
  12.     BitBtn1: TBitBtn;
  13.     BitBtn2: TBitBtn;
  14.     StopTime1: TStopTime;
  15.     LED1: TLED;
  16.     CDEvents1: TCDEvents;
  17.     MemCtrl2: TMemCtrl;
  18.     procedure BitBtn1Click(Sender: TObject);
  19.     procedure BitBtn2Click(Sender: TObject);
  20.   private
  21.     { Private declarations }
  22.   public
  23.     { Public declarations }
  24.      p : ^Byte;
  25.   end;
  26.  
  27. var
  28.   Form1: TForm1;
  29.  
  30. implementation
  31.  
  32. {$R *.DFM}
  33.  
  34. procedure TForm1.BitBtn1Click(Sender: TObject);
  35. begin
  36.   GetMem(p, 1024);
  37. end;
  38.  
  39. procedure TForm1.BitBtn2Click(Sender: TObject);
  40. begin
  41.   FreeMem(p);
  42.   p := nil;
  43. end;
  44.  
  45. end.
  46.